﻿Imports System.Data.OleDb
Public Class Bevestiging
    Inherits System.Web.UI.Page
    Dim strAandeelhoudersID As String = Request.QueryString("AH")
    Dim strVergaderingID As String = Request.QueryString("V")

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If IsPostBack = False Then
            'Declaratie
            Dim strDatum As String
            Dim strPlaats As String
            Dim cnnDatabase As New OleDbConnection
            Dim cmdDatumEnPlaats As New OleDbCommand
            Dim dtrDataReader As OleDbDataReader
            Dim strTitelVergadering As String


            'Connectie klaarmaken en openen
            cnnDatabase.ConnectionString = My.Settings.csAandeelhouders
            'Commandobject klaarmaken
            cmdDatumEnPlaats.Connection = cnnDatabase
            cmdDatumEnPlaats.CommandText = "SELECT [Start], [Plaats], [Titel] FROM tblVergaderingen WHERE Id = " & strVergaderingID


            'Connectie openen
            Try

                cnnDatabase.Open()
                If cnnDatabase.State = True Then

                    dtrDataReader = cmdDatumEnPlaats.ExecuteReader
                    Do While dtrDataReader.Read()
                        strDatum = dtrDataReader.Item("Start")
                        strPlaats = dtrDataReader.Item("Plaats")
                        strTitelVergadering = dtrDataReader.Item("Titel")
                        lblDatum.Text = strDatum
                        lblPlaats.Text = strPlaats
                        lblAanwezig.Text = strTitelVergadering
                    Loop
                Else

                End If

            Catch ex As Exception
                lblFout.Visible = True
                lblFout.Text = "Er is een fout opgetreden"
            Finally
                'Connectie sluiten
                cnnDatabase.Close()
            End Try


        End If
    End Sub

    Protected Sub btnAanwezig_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnAanwezig.Click
        'DECLARATIE
        Dim cnnDatabase As New OleDbConnection
        Dim cmdNaam As New OleDbCommand
  


        'Invoer + VERWERKING
        cnnDatabase.ConnectionString = My.Settings.csAandeelhouders

        'Connectie met databank openen

        Try
            cnnDatabase.Open()
        Catch ex As Exception
            lblFout.Visible = True
            lblFout.Text = "Kan verbinding niet maken met databank"
        End Try


        With cmdNaam
            'Connectie leggen met databank
            .Connection = cnnDatabase
            'SQL code 
            .CommandText = "UPDATE [tblAanwezigheden] SET  status = 'Ja' WHERE Code=" & strAandeelhoudersID & ";"
            .ExecuteNonQuery()
        End With

        'Connectie sluiten
        cnnDatabase.Close()


        'Indien ze op de knop aanwezig drukken komt er volgend bericht te voor schijn
        pnlAanwezigAantalPersonen.Visible = True
        btnAanwezig.Enabled = False

    End Sub
    Protected Sub btnAfwezig_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnAfwezig.Click
        'Declaratie
        Dim cnndatabase As New OleDbConnection
        Dim cmdNaam As New OleDbCommand
      
        'Invoer + VERWERKING
        cnndatabase.ConnectionString = My.Settings.csAandeelhouders

        'Connectie met databank openen
        Try
            cnndatabase.Open()
        Catch ex As Exception
            lblFout.Visible = True
            lblFout.Text = "Kan verbinding niet maken met databank"
        End Try


        With cmdNaam
            'Connectie leggen met databank
            .Connection = cnndatabase
            'SQL code
            .CommandText = "UPDATE [tblAanwezigheen] SET  Aanwezig = 'Nee' WHERE Code='" & strAandeelhoudersID & "';"
            .ExecuteNonQuery()
        End With

        'Connectie afsluiten
        cnndatabase.Close()

        'Indien ze op afwezig drukken komt het panel tevoorschijn
        pnlAfwezig.Visible = True
        btnAfwezig.Enabled = False

    End Sub


End Class